/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / contrib / partingr / mx2tex31

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 2f 75 73 72 2f 63 | 6f 6d 6d 6f 6e 2f 62 69 |#!/usr/c|ommon/bi|
|00000010| 6e 2f 70 65 72 6c 0d 64 | 6f 20 22 54 65 58 74 68 |n/perl.d|o "TeXth|
|00000020| 69 6e 67 73 22 3b 0d 64 | 6f 20 22 67 65 74 6f 70 |ings";.d|o "getop|
|00000030| 74 73 2e 70 6c 22 20 7c | 7c 20 64 69 65 20 22 24 |ts.pl" ||| die "$|
|00000040| 21 22 3b 0d 64 6f 20 47 | 65 74 6f 70 74 73 28 27 |!";.do G|etopts('|
|00000050| 6e 3a 69 64 66 3a 68 71 | 73 74 27 29 3b 0d 0d 69 |n:idf:hq|st');..i|
|00000060| 66 28 24 6f 70 74 5f 68 | 29 0d 20 7b 0d 20 20 70 |f($opt_h|). {.  p|
|00000070| 72 69 6e 74 20 53 54 44 | 45 52 52 20 3c 3c 45 4e |rint STD|ERR <<EN|
|00000080| 44 4f 46 48 45 4c 50 3b | 0d 0d 55 73 61 67 65 3a |DOFHELP;|..Usage:|
|00000090| 20 6d 78 32 74 65 78 20 | 5b 6f 70 74 69 6f 6e 73 | mx2tex |[options|
|000000a0| 5d 0d 0d 6d 78 32 74 65 | 78 20 74 61 6b 65 73 20 |]..mx2te|x takes |
|000000b0| 61 20 66 69 6c 65 20 63 | 72 65 61 74 65 64 20 62 |a file c|reated b|
|000000c0| 79 20 6d 6d 32 6d 78 20 | 61 6e 64 20 63 6f 6e 76 |y mm2mx |and conv|
|000000d0| 65 72 74 73 20 69 74 20 | 69 6e 74 6f 20 54 65 58 |erts it |into TeX|
|000000e0| 2e 0d 0d 4f 70 74 69 6f | 6e 73 3a 20 64 20 20 20 |...Optio|ns: d   |
|000000f0| 20 20 20 20 20 20 64 65 | 62 75 67 67 69 6e 67 20 |      de|bugging |
|00000100| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 0d 20 20 20 20 |informat|ion.    |
|00000110| 20 20 20 20 20 66 20 3c | 6e 61 6d 65 3e 20 20 75 |     f <|name>  u|
|00000120| 73 65 20 74 68 69 73 20 | 66 69 6c 65 20 66 6f 72 |se this |file for|
|00000130| 20 74 68 65 20 6a 6f 62 | 20 28 66 72 6f 6d 20 3c | the job| (from <|
|00000140| 6e 61 6d 65 3e 2e 6d 78 | 20 74 6f 20 3c 6e 61 6d |name>.mx| to <nam|
|00000150| 65 3e 2e 74 65 78 2f 74 | 65 78 6e 69 71 75 65 29 |e>.tex/t|exnique)|
|00000160| 0d 20 20 20 20 20 20 20 | 20 20 68 20 20 20 20 20 |.       |  h     |
|00000170| 20 20 20 20 74 68 69 73 | 20 68 65 6c 70 20 74 65 |    this| help te|
|00000180| 78 74 0d 20 20 20 20 20 | 20 20 20 20 69 20 20 20 |xt.     |    i   |
|00000190| 20 20 20 20 20 20 63 72 | 65 61 74 65 20 74 68 65 |      cr|eate the|
|000001a0| 20 69 6e 64 65 78 65 73 | 0d 20 20 20 20 20 20 20 | indexes|.       |
|000001b0| 20 20 6e 20 3c 6e 61 6d | 65 3e 20 20 75 73 65 20 |  n <nam|e>  use |
|000001c0| 74 68 69 73 20 61 73 20 | 74 68 65 20 6e 61 6d 65 |this as |the name|
|000001d0| 20 66 6f 72 20 74 68 65 | 20 6f 75 74 70 75 74 20 | for the| output |
|000001e0| 66 69 6c 65 73 0d 20 20 | 20 20 20 20 20 20 20 20 |files.  |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 64 65 66 61 75 6c |        |  defaul|
|00000200| 74 3a 20 77 6f 76 65 6e | 0d 20 20 20 20 20 20 20 |t: woven|.       |
|00000210| 20 20 71 20 20 20 20 20 | 20 20 20 20 6f 70 65 72 |  q     |    oper|
|00000220| 61 74 65 20 71 75 69 65 | 74 6c 79 20 28 6e 6f 20 |ate quie|tly (no |
|00000230| 6f 75 74 70 75 74 29 0d | 20 20 20 20 20 20 20 20 |output).|        |
|00000240| 20 73 20 20 20 20 20 20 | 20 20 20 6f 6e 6c 79 20 | s      |   only |
|00000250| 68 61 76 65 20 66 75 6c | 6c 20 6c 69 73 74 20 6f |have ful|l list o|
|00000260| 66 20 64 65 66 69 6e 65 | 73 20 66 6f 72 20 66 69 |f define|s for fi|
|00000270| 72 73 74 20 63 68 75 6e | 6b 0d 45 4e 44 4f 46 48 |rst chun|k.ENDOFH|
|00000280| 45 4c 50 0d 20 65 78 69 | 74 3b 0d 20 7d 0d 0d 75 |ELP. exi|t;. }..u|
|00000290| 6e 6c 65 73 73 28 24 6f | 70 74 5f 71 29 0d 20 7b |nless($o|pt_q). {|
|000002a0| 0d 20 20 20 70 72 69 6e | 74 20 53 54 44 45 52 52 |.   prin|t STDERR|
|000002b0| 20 22 6d 78 32 74 65 78 | 20 76 65 72 73 69 6f 6e | "mx2tex| version|
|000002c0| 20 33 2c 20 31 39 39 34 | 20 62 79 20 52 6f 62 20 | 3, 1994| by Rob |
|000002d0| 50 61 72 74 69 6e 67 74 | 6f 6e 5c 6e 22 3b 0d 20 |Partingt|on\n";. |
|000002e0| 20 20 69 66 28 24 6f 70 | 74 5f 64 29 20 7b 20 70 |  if($op|t_d) { p|
|000002f0| 75 73 68 28 40 6f 70 74 | 69 6f 6e 73 2c 22 64 65 |ush(@opt|ions,"de|
|00000300| 62 75 67 67 69 6e 67 22 | 29 3b 20 7d 0d 20 20 20 |bugging"|); }.   |
|00000310| 69 66 28 24 6f 70 74 5f | 66 29 20 7b 20 70 75 73 |if($opt_|f) { pus|
|00000320| 68 28 40 6f 70 74 69 6f | 6e 73 2c 22 66 69 6c 65 |h(@optio|ns,"file|
|00000330| 3a 24 6f 70 74 5f 66 22 | 29 3b 20 7d 0d 20 20 20 |:$opt_f"|); }.   |
|00000340| 69 66 28 24 6f 70 74 5f | 69 29 20 7b 20 70 75 73 |if($opt_|i) { pus|
|00000350| 68 28 40 6f 70 74 69 6f | 6e 73 2c 22 69 6e 64 65 |h(@optio|ns,"inde|
|00000360| 78 65 73 22 29 3b 20 7d | 0d 20 20 20 69 66 28 24 |xes"); }|.   if($|
|00000370| 6f 70 74 5f 6e 29 20 7b | 20 70 75 73 68 28 40 6f |opt_n) {| push(@o|
|00000380| 70 74 69 6f 6e 73 2c 22 | 6e 61 6d 65 3a 24 6f 70 |ptions,"|name:$op|
|00000390| 74 5f 6e 22 29 3b 20 7d | 0d 20 20 20 69 66 28 24 |t_n"); }|.   if($|
|000003a0| 6f 70 74 5f 73 29 20 7b | 20 70 75 73 68 28 40 6f |opt_s) {| push(@o|
|000003b0| 70 74 69 6f 6e 73 2c 22 | 66 69 72 73 74 20 64 65 |ptions,"|first de|
|000003c0| 66 69 6e 65 22 29 3b 20 | 7d 0d 20 20 20 69 66 28 |fine"); |}.   if(|
|000003d0| 24 6f 70 74 5f 74 29 20 | 7b 20 70 75 73 68 28 40 |$opt_t) |{ push(@|
|000003e0| 6f 70 74 69 6f 6e 73 2c | 22 66 6f 72 63 65 20 77 |options,|"force w|
|000003f0| 72 69 74 65 22 29 3b 20 | 7d 0d 20 20 20 70 72 69 |rite"); |}.   pri|
|00000400| 6e 74 20 53 54 44 45 52 | 52 20 22 4f 70 74 69 6f |nt STDER|R "Optio|
|00000410| 6e 73 3a 22 2c 73 6f 72 | 74 28 6a 6f 69 6e 28 27 |ns:",sor|t(join('|
|00000420| 20 2b 20 27 2c 40 6f 70 | 74 69 6f 6e 73 29 29 2c | + ',@op|tions)),|
|00000430| 22 5c 6e 22 3b 0d 20 20 | 20 75 6e 64 65 66 20 40 |"\n";.  | undef @|
|00000440| 6f 70 74 69 6f 6e 73 3b | 0d 20 7d 0d 0d 24 6d 61 |options;|. }..$ma|
|00000450| 63 72 6f 66 69 6c 65 3d | 22 6e 77 69 6e 64 65 78 |crofile=|"nwindex|
|00000460| 22 3b 20 69 66 28 24 6f | 70 74 5f 64 29 20 7b 20 |"; if($o|pt_d) { |
|00000470| 24 6d 61 63 72 6f 66 69 | 6c 65 3d 22 6e 77 69 64 |$macrofi|le="nwid|
|00000480| 78 6d 61 63 22 3b 20 7d | 0d 0d 24 66 69 6c 65 6e |xmac"; }|..$filen|
|00000490| 61 6d 65 3d 24 6f 70 74 | 5f 66 3b 20 69 66 28 24 |ame=$opt|_f; if($|
|000004a0| 6f 70 74 5f 6e 29 20 7b | 20 24 66 69 6c 65 6e 61 |opt_n) {| $filena|
|000004b0| 6d 65 3d 24 6f 70 74 5f | 6e 3b 20 7d 0d 0d 6f 70 |me=$opt_|n; }..op|
|000004c0| 65 6e 28 54 45 58 2c 22 | 3e 24 66 69 6c 65 6e 61 |en(TEX,"|>$filena|
|000004d0| 6d 65 2e 74 65 78 6e 69 | 71 75 65 22 29 20 7c 7c |me.texni|que") |||
|000004e0| 20 64 69 65 20 22 24 21 | 22 3b 0d 0d 69 66 28 24 | die "$!|";..if($|
|000004f0| 6f 70 74 5f 66 29 20 7b | 20 70 75 73 68 28 40 41 |opt_f) {| push(@A|
|00000500| 52 47 56 2c 22 24 66 69 | 6c 65 6e 61 6d 65 2e 6d |RGV,"$fi|lename.m|
|00000510| 61 72 6b 75 70 22 29 3b | 20 7d 0d 20 0d 75 6e 6c |arkup");| }. .unl|
|00000520| 65 73 73 28 2d 65 20 22 | 24 66 69 6c 65 6e 61 6d |ess(-e "|$filenam|
|00000530| 65 2e 74 65 78 22 20 26 | 26 20 21 24 6f 70 74 5f |e.tex" &|& !$opt_|
|00000540| 74 29 0d 20 7b 0d 20 20 | 6f 70 65 6e 28 54 45 58 |t). {.  |open(TEX|
|00000550| 43 4e 54 4c 2c 22 3e 24 | 66 69 6c 65 6e 61 6d 65 |CNTL,">$|filename|
|00000560| 2e 74 65 78 22 29 20 7c | 7c 20 64 69 65 20 22 24 |.tex") ||| die "$|
|00000570| 21 22 3b 0d 20 20 70 72 | 69 6e 74 20 54 45 58 43 |!";.  pr|int TEXC|
|00000580| 4e 54 4c 20 3c 3c 45 4f | 54 45 58 3b 0d 5c 5c 69 |NTL <<EO|TEX;.\\i|
|00000590| 6e 70 75 74 20 24 6d 61 | 63 72 6f 66 69 6c 65 0d |nput $ma|crofile.|
|000005a0| 5c 5c 64 65 66 5c 5c 64 | 65 66 69 6e 65 64 7b 7d |\\def\\d|efined{}|
|000005b0| 5c 5c 69 6e 69 74 5c 5c | 6f 75 74 70 75 74 3d 7b |\\init\\|output={|
|000005c0| 5c 5c 70 6c 61 69 6e 6f | 75 74 70 75 74 5c 5c 67 |\\plaino|utput\\g|
|000005d0| 6c 6f 62 61 6c 5c 5c 73 | 75 62 70 61 67 65 72 65 |lobal\\s|ubpagere|
|000005e0| 66 3d 39 37 7d 0d 7b 5c | 5c 64 65 66 5c 5c 73 68 |f=97}.{\|\def\\sh|
|000005f0| 69 70 6f 75 74 7b 5c 5c | 6d 65 73 73 61 67 65 7b |ipout{\\|message{|
|00000600| 5b 70 5c 5c 74 68 65 5c | 5c 70 61 67 65 6e 6f 5d |[p\\the\|\pageno]|
|00000610| 7d 5c 5c 73 65 74 62 6f | 78 30 7d 0d 5c 5c 69 6e |}\\setbo|x0}.\\in|
|00000620| 70 75 74 20 5c 5c 6a 6f | 62 6e 61 6d 65 2e 74 65 |put \\jo|bname.te|
|00000630| 78 6e 69 71 75 65 20 5c | 5c 76 66 69 6c 6c 5c 5c |xnique \|\vfill\\|
|00000640| 73 75 70 65 72 65 6a 65 | 63 74 7d 0d 5c 5c 69 6e |supereje|ct}.\\in|
|00000650| 69 74 7b 5c 5c 67 64 65 | 66 5c 5c 70 61 73 73 74 |it{\\gde|f\\passt|
|00000660| 77 6f 7b 7d 5c 5c 69 6e | 70 75 74 20 5c 5c 6a 6f |wo{}\\in|put \\jo|
|00000670| 62 6e 61 6d 65 2e 74 65 | 78 6e 69 71 75 65 20 7d |bname.te|xnique }|
|00000680| 0d 5c 5c 65 6e 64 0d 45 | 4f 54 45 58 0d 20 20 63 |.\\end.E|OTEX.  c|
|00000690| 6c 6f 73 65 28 54 45 58 | 43 4e 54 4c 29 3b 0d 20 |lose(TEX|CNTL);. |
|000006a0| 7d 0d 20 0d 0d 24 63 6f | 64 65 3d 30 3b 20 24 74 |}. ..$co|de=0; $t|
|000006b0| 65 78 74 3d 31 3b 20 24 | 69 67 6e 6f 72 65 3d 30 |ext=1; $|ignore=0|
|000006c0| 3b 0d 77 68 69 6c 65 6c | 6f 6f 70 3a 0d 77 68 69 |;.whilel|oop:.whi|
|000006d0| 6c 65 28 3c 3e 29 0d 7b | 0d 20 20 69 66 28 2f 5e |le(<>).{|.  if(/^|
|000006e0| 62 65 67 69 6e 20 63 6f | 64 65 20 28 2e 2a 29 24 |begin co|de (.*)$|
|000006f0| 2f 29 20 20 20 20 7b 20 | 24 64 65 6c 61 79 65 64 |/)    { |$delayed|
|00000700| 3d 22 5c 5c 6e 77 62 65 | 67 69 6e 63 6f 64 65 7b |="\\nwbe|gincode{|
|00000710| 24 31 7d 22 3b 20 24 63 | 6f 64 65 3d 31 3b 20 24 |$1}"; $c|ode=1; $|
|00000720| 74 65 78 74 3d 35 3b 20 | 7d 0d 20 20 65 6c 73 69 |text=5; |}.  elsi|
|00000730| 66 28 2f 5e 65 6e 64 20 | 63 6f 64 65 2f 29 20 20 |f(/^end |code/)  |
|00000740| 20 20 20 20 20 20 20 7b | 20 70 72 69 6e 74 20 54 |       {| print T|
|00000750| 45 58 20 22 5c 5c 6e 77 | 65 6e 64 63 6f 64 65 7b |EX "\\nw|endcode{|
|00000760| 7d 5c 5c 66 69 6c 62 72 | 65 61 6b 24 64 65 66 69 |}\\filbr|eak$defi|
|00000770| 6e 67 22 3b 20 24 63 6f | 64 65 3d 30 3b 20 7d 0d |ng"; $co|de=0; }.|
|00000780| 20 20 65 6c 73 69 66 28 | 2f 5e 62 65 67 69 6e 20 |  elsif(|/^begin |
|00000790| 64 6f 63 73 20 28 2e 2a | 29 24 2f 29 20 7b 20 70 |docs (.*|)$/) { p|
|000007a0| 72 69 6e 74 20 54 45 58 | 20 22 5c 5c 6e 77 62 65 |rint TEX| "\\nwbe|
|000007b0| 67 69 6e 64 6f 63 73 7b | 24 31 7d 22 3b 20 24 74 |gindocs{|$1}"; $t|
|000007c0| 65 78 74 3d 30 3b 20 24 | 74 65 78 74 6d 6f 64 65 |ext=0; $|textmode|
|000007d0| 3d 30 3b 20 7d 0d 20 20 | 65 6c 73 69 66 28 2f 5e |=0; }.  |elsif(/^|
|000007e0| 65 6e 64 20 64 6f 63 73 | 2f 29 20 20 20 20 20 20 |end docs|/)      |
|000007f0| 20 20 20 7b 20 70 72 69 | 6e 74 20 54 45 58 20 22 |   { pri|nt TEX "|
|00000800| 5c 5c 6e 77 65 6e 64 64 | 6f 63 73 7b 7d 22 3b 20 |\\nwendd|ocs{}"; |
|00000810| 7d 0d 20 20 65 6c 73 69 | 66 28 2f 5e 74 65 78 74 |}.  elsi|f(/^text|
|00000820| 20 28 2e 2a 29 24 2f 29 | 0d 20 20 7b 20 24 74 65 | (.*)$/)|.  { $te|
|00000830| 78 74 2b 3d 6c 65 6e 67 | 74 68 20 24 31 3b 0d 20 |xt+=leng|th $1;. |
|00000840| 20 20 20 69 66 28 24 63 | 6f 64 65 3d 3d 31 29 20 |   if($c|ode==1) |
|00000850| 20 20 20 20 20 20 7b 20 | 70 72 69 6e 74 20 54 45 |      { |print TE|
|00000860| 58 20 26 65 73 63 61 70 | 65 62 73 6c 61 73 68 28 |X &escap|ebslash(|
|00000870| 24 31 29 3b 20 7d 0d 20 | 20 20 20 65 6c 73 69 66 |$1); }. |   elsif|
|00000880| 28 24 71 75 6f 74 69 6e | 67 3d 3d 31 29 20 7b 20 |($quotin|g==1) { |
|00000890| 70 72 69 6e 74 20 54 45 | 58 20 26 54 65 58 6c 69 |print TE|X &TeXli|
|000008a0| 74 65 72 61 6c 28 24 31 | 29 3b 20 7d 0d 20 20 20 |teral($1|); }.   |
|000008b0| 20 65 6c 73 65 20 20 20 | 20 20 20 20 20 20 20 20 | else   |        |
|000008c0| 20 20 20 20 7b 20 70 72 | 69 6e 74 20 54 45 58 20 |    { pr|int TEX |
|000008d0| 24 31 3b 20 7d 0d 20 20 | 20 20 24 74 65 78 74 6d |$1; }.  |  $textm|
|000008e0| 6f 64 65 3d 31 20 69 66 | 20 24 74 65 78 74 3e 30 |ode=1 if| $text>0|
|000008f0| 3b 0d 20 20 7d 0d 20 20 | 65 6c 73 69 66 28 2f 5e |;.  }.  |elsif(/^|
|00000900| 6e 6c 24 2f 29 0d 20 20 | 7b 20 69 66 28 24 63 6f |nl$/).  |{ if($co|
|00000910| 64 65 3d 3d 30 29 0d 20 | 20 20 20 7b 20 69 66 28 |de==0). |   { if(|
|00000920| 24 74 65 78 74 3d 3d 30 | 29 0d 20 20 20 20 20 20 |$text==0|).      |
|00000930| 20 20 7b 20 69 66 28 24 | 74 65 78 74 6d 6f 64 65 |  { if($|textmode|
|00000940| 3d 3d 31 29 20 7b 20 70 | 72 69 6e 74 20 54 45 58 |==1) { p|rint TEX|
|00000950| 20 22 5c 5c 6e 77 64 6f | 63 73 70 61 72 5c 5c 6e | "\\nwdo|cspar\\n|
|00000960| 6f 69 6e 64 65 6e 74 5c | 6e 22 3b 20 7d 0d 20 20 |oindent\|n"; }.  |
|00000970| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 20 20 20 |        |else    |
|00000980| 20 20 20 20 20 20 20 20 | 20 7b 20 70 72 69 6e 74 |        | { print|
|00000990| 20 54 45 58 20 22 5c 6e | 22 3b 20 7d 0d 20 20 20 | TEX "\n|"; }.   |
|000009a0| 20 20 20 20 20 20 20 24 | 74 65 78 74 6d 6f 64 65 |       $|textmode|
|000009b0| 3d 31 3b 20 24 74 65 78 | 74 3d 31 3b 0d 20 20 20 |=1; $tex|t=1;.   |
|000009c0| 20 20 20 20 20 7d 0d 20 | 20 20 20 20 20 65 6c 73 |     }. |     els|
|000009d0| 65 20 7b 20 70 72 69 6e | 74 20 54 45 58 20 22 5c |e { prin|t TEX "\|
|000009e0| 6e 22 3b 20 7d 0d 20 20 | 20 20 7d 0d 20 20 20 20 |n"; }.  |  }.    |
|000009f0| 65 6c 73 69 66 28 24 71 | 75 6f 74 69 6e 67 29 20 |elsif($q|uoting) |
|00000a00| 7b 20 70 72 69 6e 74 20 | 54 45 58 20 22 5c 5c 6e |{ print |TEX "\\n|
|00000a10| 77 6e 65 77 6c 69 6e 65 | 22 3b 20 7d 0d 20 20 20 |wnewline|"; }.   |
|00000a20| 20 65 6c 73 65 20 7b 20 | 69 66 28 24 74 65 78 74 | else { |if($text|
|00000a30| 3e 30 29 20 7b 20 70 72 | 69 6e 74 20 54 45 58 20 |>0) { pr|int TEX |
|00000a40| 22 5c 6e 22 3b 20 7d 20 | 7d 0d 20 20 7d 0d 20 20 |"\n"; } |}.  }.  |
|00000a50| 65 6c 73 69 66 28 2f 5e | 64 65 66 6e 20 28 5b 61 |elsif(/^|defn ([a|
|00000a60| 2d 7a 5d 2b 29 5c 7c 28 | 2e 2a 29 5c 7c 28 2e 2a |-z]+)\|(|.*)\|(.*|
|00000a70| 29 5c 7c 20 28 2e 2a 29 | 24 2f 29 0d 20 20 7b 20 |)\| (.*)|$/).  { |
|00000a80| 24 78 72 65 66 3d 24 31 | 3b 20 24 6e 61 6d 65 3d |$xref=$1|; $name=|
|00000a90| 24 32 3b 0d 20 20 20 20 | 24 64 65 66 69 6e 67 3d |$2;.    |$defing=|
|00000aa0| 22 5c 5c 6d 61 6b 65 72 | 65 66 7b 24 31 7d 22 3b |"\\maker|ef{$1}";|
|00000ab0| 0d 20 20 20 20 24 64 65 | 66 6c 69 73 74 3d 24 32 |.    $de|flist=$2|
|00000ac0| 3b 20 24 75 73 65 6c 69 | 73 74 3d 24 33 3b 0d 20 |; $useli|st=$3;. |
|00000ad0| 20 20 20 69 66 28 24 6f | 70 74 5f 73 20 26 26 20 |   if($o|pt_s && |
|00000ae0| 40 64 65 66 6e 73 7b 24 | 6e 61 6d 65 7d 20 65 71 |@defns{$|name} eq|
|00000af0| 20 27 70 6c 75 73 27 29 | 0d 20 20 20 20 20 7b 0d | 'plus')|.     {.|
|00000b00| 20 20 20 20 20 20 20 69 | 66 28 28 24 66 69 72 73 |       i|f(($firs|
|00000b10| 74 72 3d 69 6e 64 65 78 | 28 24 64 65 66 6c 69 73 |tr=index|($deflis|
|00000b20| 74 2c 27 7d 5c 5c 27 29 | 29 21 3d 2d 31 29 0d 20 |t,'}\\')|)!=-1). |
|00000b30| 20 20 20 20 20 20 20 7b | 20 24 64 65 66 6c 69 73 |       {| $deflis|
|00000b40| 74 3d 73 75 62 73 74 72 | 28 24 64 65 66 6c 69 73 |t=substr|($deflis|
|00000b50| 74 2c 30 2c 24 66 69 72 | 73 74 72 29 20 2e 20 27 |t,0,$fir|str) . '|
|00000b60| 7d 7d 27 3b 20 7d 0d 20 | 20 20 20 20 20 20 69 66 |}}'; }. |      if|
|00000b70| 28 28 24 66 69 72 73 74 | 72 3d 69 6e 64 65 78 28 |(($first|r=index(|
|00000b80| 24 75 73 65 6c 69 73 74 | 2c 27 7d 5c 5c 27 29 29 |$uselist|,'}\\'))|
|00000b90| 21 3d 2d 31 29 0d 20 20 | 20 20 20 20 20 20 7b 20 |!=-1).  |      { |
|00000ba0| 24 75 73 65 6c 69 73 74 | 3d 73 75 62 73 74 72 28 |$uselist|=substr(|
|00000bb0| 24 75 73 65 6c 69 73 74 | 2c 30 2c 24 66 69 72 73 |$uselist|,0,$firs|
|00000bc0| 74 72 29 20 2e 20 27 7d | 7d 27 3b 20 7d 0d 20 20 |tr) . '}|}'; }.  |
|00000bd0| 20 20 20 7d 0d 20 20 20 | 20 20 0d 20 20 20 20 70 |   }.   |  .    p|
|00000be0| 72 69 6e 74 20 54 45 58 | 20 22 24 64 65 6c 61 79 |rint TEX| "$delay|
|00000bf0| 65 64 5c 5c 64 65 66 5c | 5c 6c 69 73 74 24 64 65 |ed\\def\|\list$de|
|00000c00| 66 6c 69 73 74 5c 5c 64 | 65 66 5c 5c 75 6c 69 73 |flist\\d|ef\\ulis|
|00000c10| 74 24 75 73 65 6c 69 73 | 74 22 2c 0d 20 20 20 20 |t$uselis|t",.    |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 5c |        |      "\|
|00000c30| 5c 6d 6f 64 64 65 66 7b | 5c 5c 78 70 7b 5c 5c 24 |\moddef{|\\xp{\\$|
|00000c40| 31 7d 7d 7b 22 2c 26 63 | 6f 6e 76 71 75 6f 74 65 |1}}{",&c|onvquote|
|00000c50| 73 28 24 34 29 2c 22 7d | 22 2c 0d 20 20 20 20 20 |s($4),"}|",.     |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 5c 5c |        |     "\\|
|00000c70| 69 6e 6d 6f 64 6e 61 6d | 65 5c 5c 22 2c 40 64 65 |inmodnam|e\\",@de|
|00000c80| 66 6e 73 7b 24 6e 61 6d | 65 7d 2c 22 65 6e 64 6d |fns{$nam|e},"endm|
|00000c90| 6f 64 64 65 66 22 3b 0d | 20 20 20 20 24 69 67 6e |oddef";.|    $ign|
|00000ca0| 6f 72 65 3d 31 3b 0d 20 | 20 20 20 40 64 65 66 6e |ore=1;. |   @defn|
|00000cb0| 73 7b 24 6e 61 6d 65 7d | 3d 27 70 6c 75 73 27 3b |s{$name}|='plus';|
|00000cc0| 0d 20 20 7d 0d 20 20 65 | 6c 73 69 66 28 2f 5e 75 |.  }.  e|lsif(/^u|
|00000cd0| 73 65 20 28 5b 61 2d 7a | 5d 2b 29 5c 7c 28 2e 2a |se ([a-z|]+)\|(.*|
|00000ce0| 29 5c 7c 20 28 2e 2a 29 | 24 2f 29 0d 20 20 20 7b |)\| (.*)|$/).   {|
|00000cf0| 0d 20 20 20 20 24 64 65 | 66 6c 69 73 74 3d 24 32 |.    $de|flist=$2|
|00000d00| 3b 0d 20 20 20 20 69 66 | 28 24 6f 70 74 5f 73 29 |;.    if|($opt_s)|
|00000d10| 0d 20 20 20 20 20 7b 20 | 24 64 65 66 6c 69 73 74 |.     { |$deflist|
|00000d20| 3d 7e 73 2f 5e 28 7b 5c | 5c 5c 5c 5c 7b 2e 2a 5c |=~s/^({\|\\\\{.*\|
|00000d30| 7d 29 2e 2a 5c 7d 24 2f | 5c 31 5c 7d 2f 3b 7d 0d |}).*\}$/|\1\}/;}.|
|00000d40| 20 20 20 20 70 72 69 6e | 74 20 54 45 58 20 22 5c |    prin|t TEX "\|
|00000d50| 5c 4c 41 7b 7d 22 2c 26 | 63 6f 6e 76 71 75 6f 74 |\LA{}",&|convquot|
|00000d60| 65 73 28 24 33 29 2c 22 | 5c 5c 64 65 66 5c 5c 6c |es($3),"|\\def\\l|
|00000d70| 69 73 74 22 2c 24 64 65 | 66 6c 69 73 74 2c 22 5c |ist",$de|flist,"\|
|00000d80| 5c 69 6e 6d 6f 64 6e 61 | 6d 65 5c 5c 52 41 7b 7d |\inmodna|me\\RA{}|
|00000d90| 22 3b 0d 20 20 20 7d 0d | 20 20 65 6c 73 69 66 28 |";.   }.|  elsif(|
|00000da0| 2f 5e 71 75 6f 74 65 24 | 2f 29 20 20 20 20 20 20 |/^quote$|/)      |
|00000db0| 20 20 20 20 20 7b 20 24 | 71 75 6f 74 69 6e 67 3d |     { $|quoting=|
|00000dc0| 31 3b 20 70 72 69 6e 74 | 20 54 45 58 20 22 7b 5c |1; print| TEX "{\|
|00000dd0| 5c 74 74 20 22 3b 20 7d | 0d 20 20 65 6c 73 69 66 |\tt "; }|.  elsif|
|00000de0| 28 2f 5e 65 6e 64 71 75 | 6f 74 65 24 2f 29 20 20 |(/^endqu|ote$/)  |
|00000df0| 20 20 20 20 20 20 7b 20 | 24 71 75 6f 74 69 6e 67 |      { |$quoting|
|00000e00| 3d 30 3b 20 70 72 69 6e | 74 20 54 45 58 20 22 7d |=0; prin|t TEX "}|
|00000e10| 22 3b 20 24 74 65 78 74 | 6d 6f 64 65 3d 30 3b 20 |"; $text|mode=0; |
|00000e20| 7d 0d 20 20 65 6c 73 69 | 66 28 2f 5e 66 69 6c 65 |}.  elsi|f(/^file|
|00000e30| 20 28 2e 2a 29 24 2f 29 | 20 20 20 20 20 20 20 7b | (.*)$/)|       {|
|00000e40| 20 70 72 69 6e 74 20 54 | 45 58 20 22 5c 5c 66 69 | print T|EX "\\fi|
|00000e50| 6c 65 6e 61 6d 65 7b 24 | 31 7d 22 3b 20 7d 0d 20 |lename{$|1}"; }. |
|00000e60| 20 65 6c 73 69 66 28 2f | 5e 6c 69 74 65 72 61 6c | elsif(/|^literal|
|00000e70| 20 28 2e 2a 29 24 2f 29 | 20 20 20 20 7b 20 70 72 | (.*)$/)|    { pr|
|00000e80| 69 6e 74 20 54 45 58 20 | 22 24 31 22 3b 20 7d 0d |int TEX |"$1"; }.|
|00000e90| 20 20 65 6c 73 69 66 28 | 2f 5e 65 6e 74 72 79 20 |  elsif(|/^entry |
|00000ea0| 28 2e 2a 29 24 2f 20 26 | 26 20 24 6f 70 74 5f 69 |(.*)$/ &|& $opt_i|
|00000eb0| 29 20 7b 20 70 72 69 6e | 74 20 49 4e 44 45 58 20 |) { prin|t INDEX |
|00000ec0| 22 24 31 5c 6e 22 3b 20 | 7d 0d 20 20 65 6c 73 69 |"$1\n"; |}.  elsi|
|00000ed0| 66 28 2f 5e 69 6e 64 65 | 78 20 28 2e 2a 29 24 2f |f(/^inde|x (.*)$/|
|00000ee0| 20 26 26 20 24 6f 70 74 | 5f 69 29 0d 20 20 7b 20 | && $opt|_i).  { |
|00000ef0| 70 72 69 6e 74 20 53 54 | 44 45 52 52 20 22 63 72 |print ST|DERR "cr|
|00000f00| 65 61 74 69 6e 67 20 69 | 6e 64 65 78 20 60 24 66 |eating i|ndex `$f|
|00000f10| 69 6c 65 6e 61 6d 65 2e | 24 31 27 5c 6e 22 20 75 |ilename.|$1'\n" u|
|00000f20| 6e 6c 65 73 73 20 24 6f | 70 74 5f 71 3b 0d 20 20 |nless $o|pt_q;.  |
|00000f30| 20 20 6f 70 65 6e 28 49 | 4e 44 45 58 2c 22 3e 24 |  open(I|NDEX,">$|
|00000f40| 66 69 6c 65 6e 61 6d 65 | 2e 24 31 22 29 3b 0d 20 |filename|.$1");. |
|00000f50| 20 20 20 70 72 69 6e 74 | 20 49 4e 44 45 58 20 22 |   print| INDEX "|
|00000f60| 5c 5c 62 65 67 69 6e 67 | 72 6f 75 70 5c 5c 70 61 |\\beging|roup\\pa|
|00000f70| 72 69 6e 64 65 6e 74 3d | 30 70 74 5c 5c 6f 62 65 |rindent=|0pt\\obe|
|00000f80| 79 6c 69 6e 65 73 25 5c | 6e 22 3b 0d 20 20 7d 0d |ylines%\|n";.  }.|
|00000f90| 20 20 65 6c 73 69 66 28 | 2f 5e 65 6e 64 20 69 6e |  elsif(|/^end in|
|00000fa0| 64 65 78 24 2f 20 26 26 | 20 24 6f 70 74 5f 69 29 |dex$/ &&| $opt_i)|
|00000fb0| 0d 20 20 20 20 7b 0d 20 | 20 20 20 20 20 70 72 69 |.    {. |     pri|
|00000fc0| 6e 74 20 49 4e 44 45 58 | 20 22 5c 5c 65 6e 64 67 |nt INDEX| "\\endg|
|00000fd0| 72 6f 75 70 5c 6e 22 3b | 0d 20 20 20 20 20 20 63 |roup\n";|.      c|
|00000fe0| 6c 6f 73 65 28 49 4e 44 | 45 58 29 3b 0d 20 20 20 |lose(IND|EX);.   |
|00000ff0| 20 7d 0d 7d 0d 70 72 69 | 6e 74 20 54 45 58 20 22 | }.}.pri|nt TEX "|
|00001000| 5c 5c 70 61 73 73 66 69 | 6e 5c 6e 22 3b 0d       |\\passfi|n\n";.  |
+--------+-------------------------+-------------------------+--------+--------+